Sub Main

Dim diag As Diagram
Dim Model As Model
Dim MySubModel As SubModel
Dim EntNames As Variant
Dim EntNum As Variant
Dim n As Integer



n = 0

Set diag = DiagramManager.ActiveDiagram
Set Model = diag.ActiveModel
Set MySubModel = Model.ActiveSubModel

Debug.Clear
MySubModel.EntityNames(EntNames, EntNum)
While n < EntNum
Debug.Print EntNames(n)
n = n + 1
Wend



End Sub
